home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi1 / lessons.exe / lesson2 / VATFORM.DFM / VATFORM.txt
Encoding:
Text File  |  1995-12-13  |  1.9 KB  |  93 lines
  1. object Form1: TForm1
  2.   Left = 261
  3.   Top = 180
  4.   ActiveControl = CalcBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'PC Plus VAT Calculator'
  7.   ClientHeight = 173
  8.   ClientWidth = 285
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object CalcBtn: TButton
  16.     Left = 8
  17.     Top = 137
  18.     Width = 273
  19.     Height = 33
  20.     Caption = '&Calculate the Grand Total'
  21.     Font.Color = clBlack
  22.     Font.Height = -13
  23.     Font.Name = 'Times New Roman'
  24.     Font.Style = [fsBold]
  25.     ParentFont = False
  26.     TabOrder = 0
  27.     OnClick = CalcBtnClick
  28.   end
  29.   object GroupBox1: TGroupBox
  30.     Left = 8
  31.     Top = 1
  32.     Width = 273
  33.     Height = 129
  34.     Caption = ' Base Calc on...'
  35.     TabOrder = 1
  36.     object Label1: TLabel
  37.       Left = 168
  38.       Top = 56
  39.       Width = 20
  40.       Height = 16
  41.       Caption = 'Vat'
  42.     end
  43.     object SubTotRB: TRadioButton
  44.       Left = 152
  45.       Top = 24
  46.       Width = 89
  47.       Height = 17
  48.       Hint = 
  49.         'Select this to generate a grand total from the cost (ex VAT) in ' +
  50.         'the first field'
  51.       Caption = 'SubTotal'
  52.       Checked = True
  53.       TabOrder = 0
  54.       TabStop = True
  55.       OnClick = SubTotRBClick
  56.     end
  57.     object GrandTotRB: TRadioButton
  58.       Left = 152
  59.       Top = 88
  60.       Width = 97
  61.       Height = 17
  62.       Caption = 'Grand Total'
  63.       TabOrder = 1
  64.       OnClick = GrandTotRBClick
  65.     end
  66.     object SubTotal: TEdit
  67.       Left = 16
  68.       Top = 24
  69.       Width = 121
  70.       Height = 24
  71.       TabOrder = 2
  72.     end
  73.     object Vat: TEdit
  74.       Left = 16
  75.       Top = 56
  76.       Width = 121
  77.       Height = 24
  78.       ReadOnly = True
  79.       TabOrder = 3
  80.     end
  81.     object GrandTotal: TEdit
  82.       Left = 16
  83.       Top = 88
  84.       Width = 121
  85.       Height = 24
  86.       Hint = 
  87.         'Select this to generate a subtotal from the cost (inc VAT) in th' +
  88.         'e last field'
  89.       TabOrder = 4
  90.     end
  91.   end
  92. end
  93.